object FormFete: TFormFete Left = 381 Top = 139 BorderStyle = bsDialog Caption = 'Rechercher une date de f'#234'te' ClientHeight = 317 ClientWidth = 334 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object SC_Line5: TSC_Line Left = 0 Top = 283 Width = 334 Height = 34 BorderShape = bsTopLine Align = alBottom end object Label1: TLabel Left = 12 Top = 15 Width = 38 Height = 14 Caption = 'Trouver' Transparent = True end object ListViewFete: TListView Left = 12 Top = 41 Width = 226 Height = 228 Cursor = crHandPoint Columns = < item Caption = 'Nom' Width = 140 end item Caption = 'Date' Width = 64 end> ColumnClick = False HideSelection = False ReadOnly = True RowSelect = True PopupMenu = PopupMenu1 SmallImages = MainFormMira.ImageList1 TabOrder = 1 ViewStyle = vsReport OnDblClick = Modifiercenom1Click end object ButtonOk: TButton Left = 87 Top = 290 Width = 75 Height = 22 Caption = '&Ok' Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 5 end object ButtonCancel: TButton Left = 172 Top = 290 Width = 75 Height = 22 Cancel = True Caption = '&Annuler' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 6 end object EditFete: TEdit Left = 57 Top = 12 Width = 181 Height = 22 TabOrder = 0 OnChange = EditFeteChange end object ButtonAdd: TButton Left = 246 Top = 41 Width = 75 Height = 22 Hint = 'Ajouter une entr'#233'e' Caption = '&Ajouter' TabOrder = 2 OnClick = Ajouterunnom1Click end object ButtonMod: TButton Left = 246 Top = 71 Width = 75 Height = 22 Hint = 'Modifier cette entr'#233'e' Caption = '&Modifier' TabOrder = 3 OnClick = Modifiercenom1Click end object ButtonDell: TButton Left = 246 Top = 101 Width = 75 Height = 22 Hint = 'Supprimer cette entr'#233'e' Caption = '&Supprimer' TabOrder = 4 OnClick = Supprimercenom1Click end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 156 Top = 72 object Ajouterunnom1: TMenuItem Caption = 'Ajouter un nom' OnClick = Ajouterunnom1Click end object N1: TMenuItem Caption = '-' end object Modifiercenom1: TMenuItem Caption = 'Modifier ce nom' OnClick = Modifiercenom1Click end object N2: TMenuItem Caption = '-' end object Supprimercenom1: TMenuItem Caption = 'Supprimer ce nom' OnClick = Supprimercenom1Click end end end